(bibtex-clean-entry): Back over close delimiter carefully.

diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 494fdbbed8ec9158efd8a0d51d9f6a5be44a6157..afc3d8f6a155f653055660427c70352c78a81b23 100644 (file)
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -1489,8 +1489,8 @@ an undefined location.
     (end-of-bibtex-entry)
     ;; sct@dcs.edinburgh.ac.uk
     (save-excursion
-      (previous-line 1)
-      (end-of-line)
+      (backward-char 1)
+      (skip-syntax-backward " >")
       (if (eq (preceding-char) ?,)
          (backward-delete-char 1)))
     (skip-whitespace-and-comments)))